sdk/samples/all in on code/Visual Studio 2008/VBEFEntityDataModel/TableSplitting/EFTblSplitEntitie.Designer.vb

   1 '------------------------------------------------------------------------------
   2 ' <auto-generated>
   3 '     This code was generated by a tool.
   4 '     Runtime Version:2.0.50727.3603
   5 '
   6 '     Changes to this file may cause incorrect behavior and will be lost if
   7 '     the code is regenerated.
   8 ' </auto-generated>
   9 '------------------------------------------------------------------------------
  10
  11 Option Strict Off
  12 Option Explicit On
  13
  14 <Assembly: Global.System.Data.Objects.DataClasses.EdmSchemaAttribute("c0c77fe2-6cf4-45c4-a90e-c5e37bca04e7"),  _
  15  Assembly: Global.System.Data.Objects.DataClasses.EdmRelationshipAttribute("EFTblSplitModel", "PersonPersonDetail", "Person", Global.System.Data.Metadata.Edm.RelationshipMultiplicity.One, GetType(Person), "PersonDetail", Global.System.Data.Metadata.Edm.RelationshipMultiplicity.One, GetType(PersonDetail))>
  16
  17 'Original file name:
  18 'Generation date: 2009-10-22 7:21:26
  19 '''<summary>
  20 '''There are no comments for EFTblSplitEntitie in the schema.
  21 '''</summary>
  22 Partial Public Class EFTblSplitEntitie
  23     Inherits Global.System.Data.Objects.ObjectContext
  24     '''<summary>
  25     '''Initializes a new EFTblSplitEntitie object using the connection string found in the 'EFTblSplitEntitie' section of the application configuration file.
  26     '''</summary>
  27     Public Sub New()
  28         MyBase.New("name=EFTblSplitEntitie", "EFTblSplitEntitie")
  29         Me.OnContextCreated
  30     End Sub
  31     '''<summary>
  32     '''Initialize a new EFTblSplitEntitie object.
  33     '''</summary>
  34     Public Sub New(ByVal connectionString As String)
  35         MyBase.New(connectionString, "EFTblSplitEntitie")
  36         Me.OnContextCreated
  37     End Sub
  38     '''<summary>
  39     '''Initialize a new EFTblSplitEntitie object.
  40     '''</summary>
  41     Public Sub New(ByVal connection As Global.System.Data.EntityClient.EntityConnection)
  42         MyBase.New(connection, "EFTblSplitEntitie")
  43         Me.OnContextCreated
  44     End Sub
  45     Partial Private Sub OnContextCreated()
  46         End Sub
  47     '''<summary>
  48     '''There are no comments for Person in the schema.
  49     '''</summary>
  50     Public ReadOnly Property Person() As Global.System.Data.Objects.ObjectQuery(Of Person)
  51         Get
  52             If (Me._Person Is Nothing) Then
  53                 Me._Person = MyBase.CreateQuery(Of Person)("[Person]")
  54             End If
  55             Return Me._Person
  56         End Get
  57     End Property
  58     Private _Person As Global.System.Data.Objects.ObjectQuery(Of Person)
  59     '''<summary>
  60     '''There are no comments for PersonDetailSet in the schema.
  61     '''</summary>
  62     Public ReadOnly Property PersonDetailSet() As Global.System.Data.Objects.ObjectQuery(Of PersonDetail)
  63         Get
  64             If (Me._PersonDetailSet Is Nothing) Then
  65                 Me._PersonDetailSet = MyBase.CreateQuery(Of PersonDetail)("[PersonDetailSet]")
  66             End If
  67             Return Me._PersonDetailSet
  68         End Get
  69     End Property
  70     Private _PersonDetailSet As Global.System.Data.Objects.ObjectQuery(Of PersonDetail)
  71     '''<summary>
  72     '''There are no comments for Person in the schema.
  73     '''</summary>
  74     Public Sub AddToPerson(ByVal person As Person)
  75         MyBase.AddObject("Person", person)
  76     End Sub
  77     '''<summary>
  78     '''There are no comments for PersonDetailSet in the schema.
  79     '''</summary>
  80     Public Sub AddToPersonDetailSet(ByVal personDetail As PersonDetail)
  81         MyBase.AddObject("PersonDetailSet", personDetail)
  82     End Sub
  83 End Class
  84 '''<summary>
  85 '''There are no comments for EFTblSplitModel.Person in the schema.
  86 '''</summary>
  87 '''<KeyProperties>
  88 '''PersonID
  89 '''</KeyProperties>
  90 <Global.System.Data.Objects.DataClasses.EdmEntityTypeAttribute(NamespaceName:="EFTblSplitModel", Name:="Person"),  _
  91  Global.System.Runtime.Serialization.DataContractAttribute(IsReference:=true),  _
  92  Global.System.Serializable()>  _
  93 Partial Public Class Person
  94     Inherits Global.System.Data.Objects.DataClasses.EntityObject
  95     '''<summary>
  96     '''Create a new Person object.
  97     '''</summary>
  98     '''<param name="personID">Initial value of PersonID.</param>
  99     '''<param name="lastName">Initial value of LastName.</param>
 100     '''<param name="firstName">Initial value of FirstName.</param>
 101     Public Shared Function CreatePerson(ByVal personID As Integer, ByVal lastName As String, ByVal firstName As String) As Person
 102         Dim person As Person = New Person
 103         person.PersonID = personID
 104         person.LastName = lastName
 105         person.FirstName = firstName
 106         Return person
 107     End Function
 108     '''<summary>
 109     '''There are no comments for Property PersonID in the schema.
 110     '''</summary>
 111     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(EntityKeyProperty:=true, IsNullable:=false),  _
 112      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 113     Public Property PersonID() As Integer
 114         Get
 115             Return Me._PersonID
 116         End Get
 117         Set
 118             Me.OnPersonIDChanging(value)
 119             Me.ReportPropertyChanging("PersonID")
 120             Me._PersonID = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value)
 121             Me.ReportPropertyChanged("PersonID")
 122             Me.OnPersonIDChanged
 123         End Set
 124     End Property
 125     Private _PersonID As Integer
 126     Partial Private Sub OnPersonIDChanging(ByVal value As Integer)
 127         End Sub
 128     Partial Private Sub OnPersonIDChanged()
 129         End Sub
 130     '''<summary>
 131     '''There are no comments for Property LastName in the schema.
 132     '''</summary>
 133     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(IsNullable:=false),  _
 134      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 135     Public Property LastName() As String
 136         Get
 137             Return Me._LastName
 138         End Get
 139         Set
 140             Me.OnLastNameChanging(value)
 141             Me.ReportPropertyChanging("LastName")
 142             Me._LastName = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value, false)
 143             Me.ReportPropertyChanged("LastName")
 144             Me.OnLastNameChanged
 145         End Set
 146     End Property
 147     Private _LastName As String
 148     Partial Private Sub OnLastNameChanging(ByVal value As String)
 149         End Sub
 150     Partial Private Sub OnLastNameChanged()
 151         End Sub
 152     '''<summary>
 153     '''There are no comments for Property FirstName in the schema.
 154     '''</summary>
 155     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(IsNullable:=false),  _
 156      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 157     Public Property FirstName() As String
 158         Get
 159             Return Me._FirstName
 160         End Get
 161         Set
 162             Me.OnFirstNameChanging(value)
 163             Me.ReportPropertyChanging("FirstName")
 164             Me._FirstName = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value, false)
 165             Me.ReportPropertyChanged("FirstName")
 166             Me.OnFirstNameChanged
 167         End Set
 168     End Property
 169     Private _FirstName As String
 170     Partial Private Sub OnFirstNameChanging(ByVal value As String)
 171         End Sub
 172     Partial Private Sub OnFirstNameChanged()
 173         End Sub
 174     '''<summary>
 175     '''There are no comments for PersonDetail in the schema.
 176     '''</summary>
 177     <Global.System.Data.Objects.DataClasses.EdmRelationshipNavigationPropertyAttribute("EFTblSplitModel", "PersonPersonDetail", "PersonDetail"),  _
 178      Global.System.Xml.Serialization.XmlIgnoreAttribute(),  _
 179      Global.System.Xml.Serialization.SoapIgnoreAttribute(),  _
 180      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 181     Public Property PersonDetail() As PersonDetail
 182         Get
 183             Return CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of PersonDetail)("EFTblSplitModel.PersonPersonDetail", "PersonDetail").Value
 184         End Get
 185         Set
 186             CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of PersonDetail)("EFTblSplitModel.PersonPersonDetail", "PersonDetail").Value = value
 187         End Set
 188     End Property
 189     '''<summary>
 190     '''There are no comments for PersonDetail in the schema.
 191     '''</summary>
 192     <Global.System.ComponentModel.BrowsableAttribute(false),  _
 193      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 194     Public Property PersonDetailReference() As Global.System.Data.Objects.DataClasses.EntityReference(Of PersonDetail)
 195         Get
 196             Return CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of PersonDetail)("EFTblSplitModel.PersonPersonDetail", "PersonDetail")
 197         End Get
 198         Set
 199             If (Not (value) Is Nothing) Then
 200                 CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of PersonDetail)("EFTblSplitModel.PersonPersonDetail", "PersonDetail", value)
 201             End If
 202         End Set
 203     End Property
 204 End Class
 205 '''<summary>
 206 '''There are no comments for EFTblSplitModel.PersonDetail in the schema.
 207 '''</summary>
 208 '''<KeyProperties>
 209 '''PersonID
 210 '''</KeyProperties>
 211 <Global.System.Data.Objects.DataClasses.EdmEntityTypeAttribute(NamespaceName:="EFTblSplitModel", Name:="PersonDetail"),  _
 212  Global.System.Runtime.Serialization.DataContractAttribute(IsReference:=true),  _
 213  Global.System.Serializable()>  _
 214 Partial Public Class PersonDetail
 215     Inherits Global.System.Data.Objects.DataClasses.EntityObject
 216     '''<summary>
 217     '''Create a new PersonDetail object.
 218     '''</summary>
 219     '''<param name="personID">Initial value of PersonID.</param>
 220     '''<param name="personCategory">Initial value of PersonCategory.</param>
 221     Public Shared Function CreatePersonDetail(ByVal personID As Integer, ByVal personCategory As Short) As PersonDetail
 222         Dim personDetail As PersonDetail = New PersonDetail
 223         personDetail.PersonID = personID
 224         personDetail.PersonCategory = personCategory
 225         Return personDetail
 226     End Function
 227     '''<summary>
 228     '''There are no comments for Property PersonID in the schema.
 229     '''</summary>
 230     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(EntityKeyProperty:=true, IsNullable:=false),  _
 231      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 232     Public Property PersonID() As Integer
 233         Get
 234             Return Me._PersonID
 235         End Get
 236         Set
 237             Me.OnPersonIDChanging(value)
 238             Me.ReportPropertyChanging("PersonID")
 239             Me._PersonID = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value)
 240             Me.ReportPropertyChanged("PersonID")
 241             Me.OnPersonIDChanged
 242         End Set
 243     End Property
 244     Private _PersonID As Integer
 245     Partial Private Sub OnPersonIDChanging(ByVal value As Integer)
 246         End Sub
 247     Partial Private Sub OnPersonIDChanged()
 248         End Sub
 249     '''<summary>
 250     '''There are no comments for Property PersonCategory in the schema.
 251     '''</summary>
 252     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(IsNullable:=false),  _
 253      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 254     Public Property PersonCategory() As Short
 255         Get
 256             Return Me._PersonCategory
 257         End Get
 258         Set
 259             Me.OnPersonCategoryChanging(value)
 260             Me.ReportPropertyChanging("PersonCategory")
 261             Me._PersonCategory = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value)
 262             Me.ReportPropertyChanged("PersonCategory")
 263             Me.OnPersonCategoryChanged
 264         End Set
 265     End Property
 266     Private _PersonCategory As Short
 267     Partial Private Sub OnPersonCategoryChanging(ByVal value As Short)
 268         End Sub
 269     Partial Private Sub OnPersonCategoryChanged()
 270         End Sub
 271     '''<summary>
 272     '''There are no comments for Property HireDate in the schema.
 273     '''</summary>
 274     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(),  _
 275      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 276     Public Property HireDate() As Global.System.Nullable(Of Date)
 277         Get
 278             Return Me._HireDate
 279         End Get
 280         Set
 281             Me.OnHireDateChanging(value)
 282             Me.ReportPropertyChanging("HireDate")
 283             Me._HireDate = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value)
 284             Me.ReportPropertyChanged("HireDate")
 285             Me.OnHireDateChanged
 286         End Set
 287     End Property
 288     Private _HireDate As Global.System.Nullable(Of Date)
 289     Partial Private Sub OnHireDateChanging(ByVal value As Global.System.Nullable(Of Date))
 290         End Sub
 291     Partial Private Sub OnHireDateChanged()
 292         End Sub
 293     '''<summary>
 294     '''There are no comments for Property EnrollmentDate in the schema.
 295     '''</summary>
 296     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(),  _
 297      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 298     Public Property EnrollmentDate() As Global.System.Nullable(Of Date)
 299         Get
 300             Return Me._EnrollmentDate
 301         End Get
 302         Set
 303             Me.OnEnrollmentDateChanging(value)
 304             Me.ReportPropertyChanging("EnrollmentDate")
 305             Me._EnrollmentDate = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value)
 306             Me.ReportPropertyChanged("EnrollmentDate")
 307             Me.OnEnrollmentDateChanged
 308         End Set
 309     End Property
 310     Private _EnrollmentDate As Global.System.Nullable(Of Date)
 311     Partial Private Sub OnEnrollmentDateChanging(ByVal value As Global.System.Nullable(Of Date))
 312         End Sub
 313     Partial Private Sub OnEnrollmentDateChanged()
 314         End Sub
 315     '''<summary>
 316     '''There are no comments for Property Picture in the schema.
 317     '''</summary>
 318     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(),  _
 319      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 320     Public Property Picture() As Byte()
 321         Get
 322             Return Global.System.Data.Objects.DataClasses.StructuralObject.GetValidValue(Me._Picture)
 323         End Get
 324         Set
 325             Me.OnPictureChanging(value)
 326             Me.ReportPropertyChanging("Picture")
 327             Me._Picture = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value, true)
 328             Me.ReportPropertyChanged("Picture")
 329             Me.OnPictureChanged
 330         End Set
 331     End Property
 332     Private _Picture() As Byte
 333     Partial Private Sub OnPictureChanging(ByVal value() As Byte)
 334         End Sub
 335     Partial Private Sub OnPictureChanged()
 336         End Sub
 337     '''<summary>
 338     '''There are no comments for Property BusinessCredits in the schema.
 339     '''</summary>
 340     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(),  _
 341      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 342     Public Property BusinessCredits() As String
 343         Get
 344             Return Me._BusinessCredits
 345         End Get
 346         Set
 347             Me.OnBusinessCreditsChanging(value)
 348             Me.ReportPropertyChanging("BusinessCredits")
 349             Me._BusinessCredits = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value, true)
 350             Me.ReportPropertyChanged("BusinessCredits")
 351             Me.OnBusinessCreditsChanged
 352         End Set
 353     End Property
 354     Private _BusinessCredits As String
 355     Partial Private Sub OnBusinessCreditsChanging(ByVal value As String)
 356         End Sub
 357     Partial Private Sub OnBusinessCreditsChanged()
 358         End Sub
 359     '''<summary>
 360     '''There are no comments for Property AdminDate in the schema.
 361     '''</summary>
 362     <Global.System.Data.Objects.DataClasses.EdmScalarPropertyAttribute(),  _
 363      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 364     Public Property AdminDate() As Global.System.Nullable(Of Date)
 365         Get
 366             Return Me._AdminDate
 367         End Get
 368         Set
 369             Me.OnAdminDateChanging(value)
 370             Me.ReportPropertyChanging("AdminDate")
 371             Me._AdminDate = Global.System.Data.Objects.DataClasses.StructuralObject.SetValidValue(value)
 372             Me.ReportPropertyChanged("AdminDate")
 373             Me.OnAdminDateChanged
 374         End Set
 375     End Property
 376     Private _AdminDate As Global.System.Nullable(Of Date)
 377     Partial Private Sub OnAdminDateChanging(ByVal value As Global.System.Nullable(Of Date))
 378         End Sub
 379     Partial Private Sub OnAdminDateChanged()
 380         End Sub
 381     '''<summary>
 382     '''There are no comments for Person in the schema.
 383     '''</summary>
 384     <Global.System.Data.Objects.DataClasses.EdmRelationshipNavigationPropertyAttribute("EFTblSplitModel", "PersonPersonDetail", "Person"),  _
 385      Global.System.Xml.Serialization.XmlIgnoreAttribute(),  _
 386      Global.System.Xml.Serialization.SoapIgnoreAttribute(),  _
 387      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 388     Public Property Person() As Person
 389         Get
 390             Return CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of Person)("EFTblSplitModel.PersonPersonDetail", "Person").Value
 391         End Get
 392         Set
 393             CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of Person)("EFTblSplitModel.PersonPersonDetail", "Person").Value = value
 394         End Set
 395     End Property
 396     '''<summary>
 397     '''There are no comments for Person in the schema.
 398     '''</summary>
 399     <Global.System.ComponentModel.BrowsableAttribute(false),  _
 400      Global.System.Runtime.Serialization.DataMemberAttribute()>  _
 401     Public Property PersonReference() As Global.System.Data.Objects.DataClasses.EntityReference(Of Person)
 402         Get
 403             Return CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of Person)("EFTblSplitModel.PersonPersonDetail", "Person")
 404         End Get
 405         Set
 406             If (Not (value) Is Nothing) Then
 407                 CType(Me,Global.System.Data.Objects.DataClasses.IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of Person)("EFTblSplitModel.PersonPersonDetail", "Person", value)
 408             End If
 409         End Set
 410     End Property
 411 End Class